home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
apcp38.arc
/
GAATL.ASP
< prev
next >
Wrap
Text File
|
1991-01-09
|
8KB
|
385 lines
goto init
dial:
strcmp s4 " "
if success
return
endif
isfile s4
if success
return
endif
clear
box 00 00 02 79 n9
atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
atsay 01 08 n9 "│ │ │"
atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
atsay 01 02 n8 "GAATL"
atsay 01 10 n8 s4
atsay 01 21 n8 "Atlanta, GA 404"
atsay 01 51 n8 s5
locate 05 00
transmit "I^m"
pause 1
transmit "ATZ^m"
waitfor "OK"
transmit "^E^m"
waitfor "READY"
transmit "D"
transmit S4
transmit "^m"
rget s1
rget s1 80 40
rget s1 40 40
rget s1 40 40
mess:
find s1 "BUSY"
if found
strcpy s9 "M"
return
endif
find s1 "ANSWER TONE"
if found
clear
log open s4
alarm 2
exit
endif
find s1 "RINGING"
if found
rget s1
find s1 "RINGING"
if not found
goto mess
else
log open s4
message "APCP: No answer - still ringing"
log close
transmit "^C^D^C"
endif
else
endif
return
top:
find s0 "A"
if found
strcpy s4 "392-1756"
strcpy s5 "T.J.'S PLACE "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "476-2607"
strcpy s5 "RIGHT PLACE "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "981-6010"
strcpy s5 "DATA PLUS "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "396-3630"
strcpy s5 "SCHOLAR QUEST "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "993-5310"
strcpy s5 "INVISIBLE BBS "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "433-0062"
strcpy s5 "ATLANTA PC USER'S GROUP "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "446-6269"
strcpy s5 "THE SOUTHERN CONNECTION "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "439-1306"
strcpy s5 "POWDER SPRINGS "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "998-8048"
strcpy s5 "MICRO STUFF / CROSSTALK "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "934-4515"
strcpy s5 "FLAGSHIP BBS "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "396-2517"
strcpy s5 "NOCHANGE BBS "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "972-3458"
strcpy s5 "ZAP BBS "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "288-6858"
strcpy s5 "Decibel PBBS "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "995-0182"
strcpy s5 "Fido of the South "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "767-0092"
strcpy s5 "Southside BBS "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "934-6617"
strcpy s5 "Loonieland "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "424-6258"
strcpy s5 "ADAM - IBM Connection "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "438-9097"
strcpy s5 "Cloning Board BBS "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "457-6815"
strcpy s5 "Georgia BBS "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "987-0666"
strcpy s5 "Head-Board III "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "977-6686"
strcpy s5 "PC Exchange "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "294-0237"
strcpy s5 "PC Forum "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "843-1936"
strcpy s5 "University "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "565-7775"
strcpy s5 "PC World "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "944-0826"
strcpy s5 "Austell RBBS-PC "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "377-2550"
strcpy s5 "Bill's Obsession "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "751-0252"
strcpy s5 "Bird's Nest "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "924-3397"
strcpy s5 "Candy Store "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "948-6596"
strcpy s5 "Coterie "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "951-9251"
strcpy s5 "HighTech Revolution "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "381-6759"
strcpy s5 "PC Link "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "423-9675"
strcpy s5 "Night Light "
gosub dial
endif
find s0 "6"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "7"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "8"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "9"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "@"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "#"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "$"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "%"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "&"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "*"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 n9
atsay 01 02 n8 "APCP: All numbers connected / didn't answer ... terminating ..."
locate 05 00
alarm 2
exit
init:
strcpy s9 " "
log close
clear
init n9 07
init n8 07
box 00 00 22 38 n9
box 00 41 22 79 n9
atsay 01 02 n8 "A T. J.'S Place .......... 392-1756"
atsay 02 02 n8 "B The Right Place ........ 476-2607"
atsay 03 02 n8 "C Data Plus .............. 981-6010"
atsay 04 02 n8 "D ScholarQuest ........... 396-3630"
atsay 05 02 n8 "E Invisible BBS .......... 993-5310"
atsay 06 02 n8 "F Atlanta PC User's Group 433-0062"
atsay 07 02 n8 "G Southern Connection .... 446-6269"
atsay 08 02 n8 "H Powder Springs ......... 439-1306"
atsay 09 02 n8 "I MicroStuff/Crosstalk ... 998-8048"
atsay 10 02 n8 "J Flagship ............... 934-4515"
atsay 11 02 n8 "K Nochange BBS ........... 396-2517"
atsay 12 02 n8 "L ZAP BBS ................ 972-3458"
atsay 13 02 n8 "M Decibel PBBS ........... 288-6858"
atsay 14 02 n8 "N Fido of the South ...... 995-0182"
atsay 15 02 n8 "O Southside BBS [Tandy] .. 767-0092"
atsay 16 02 n8 "P Loonieland ............. 934-6617"
atsay 17 02 n8 "Q ADAM - IBM Connection .. 424-6258"
atsay 18 02 n8 "R Cloning Board BBS ...... 438-9097"
atsay 19 02 n8 "S Georgia BBS ............ 457-6815"
atsay 20 02 n8 "T Head-Board III ......... 987-0666"
atsay 21 02 n8 "U PC Exchange ............ 977-6686"
atsay 01 43 n8 "V PC Forum ............... 294-0237"
atsay 02 43 n8 "W University ............. 843-1936"
atsay 03 43 n8 "X PC World ............... 565-7775"
atsay 04 43 n8 "Y Austell RBBS-PC ........ 944-0826"
atsay 05 43 n8 "Z Bill's Obsession ....... 377-2550"
atsay 06 43 n8 "0 Bird's Nest ............ 751-0252"
atsay 07 43 n8 "1 Candy Store ............ 924-3397"
atsay 08 43 n8 "2 Coterie ................ 948-6596"
atsay 09 43 n8 "3 HighTech Revolution .... 951-9251"
atsay 10 43 n8 "4 PC Link ................ 381-6759"
atsay 11 43 n8 "5 Night Light ............ 423-9675"
atsay 12 43 n8 "6 ........................ ... ...."
atsay 13 43 n8 "7 ........................ ... ...."
atsay 14 43 n8 "8 ........................ ... ...."
atsay 15 43 n8 "9 ........................ ... ...."
atsay 16 43 n8 "@ ........................ ... ...."
atsay 17 43 n8 "# ........................ ... ...."
atsay 18 43 n8 "$ ........................ ... ...."
atsay 19 43 n8 "% ........................ ... ...."
atsay 20 43 n8 "& ........................ ... ...."
atsay 21 43 n8 "* ........................ ... ...."
locate 23 00
get s0
goto top
return